#!
use strict;


# to test whether the perl function pass parameters by value of by reference
# yeah! by reference

sub tst
{
        for my $i (0..@_) {
                $_[$i]=0;
        }
}
my @a=(1,2,3,4);
print "before: @a\n";
tst(@a);
print "after: @a\n";

